home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -serious- / wb / ttmanager / rexx / ttm-loadicon.rexx < prev    next >
OS/2 REXX Batch file  |  1999-09-06  |  1KB  |  64 lines
  1. /* $VER:  TTM-LoadIcon.rexx 1.1 (21.11.98) by J. Tierney
  2.  
  3.   TTManager Load Icon  v1.1
  4.   11/21/98  J. Tierney <jtierney@cyberlink-inc.com>
  5.  
  6.  
  7.   Purpose:  Open new TTManger windows.
  8.  
  9.   Usage:  TTM-LoadIcon.rexx [<filenames>] , [<pubscreen>]
  10.  
  11.           <filenames> - Name(s) of icon(s) to load.
  12.                         Optional; a file requester will open if no names are given.
  13.  
  14.           <pubscreen> - Name of a public screen to open the windows on.
  15.                         Optional; defaults to TTManager's current screen (set via
  16.                         PUBSCREEN  or SetScreen).
  17.  
  18.   Examples:
  19.     RX TTM-LoadIcon.rexx SYS:Utilities/MultiView
  20.  
  21.     RX TTM-LoadIcon.rexx , DM.1
  22.  
  23.     RX TTM-LoadIcon.rexx SYS:Utilities/MultiView T:Bla SYS:T, IBROWSE
  24.  
  25.  
  26.   History:
  27.     1.0 (11/27/97)
  28. */
  29.  
  30. ttm = 'TTManager NOWARNINGS' /* Change this line to the path & options you use
  31.                                 for TTM, in case it isn't already running. */
  32.  
  33. OPTIONS RESULTS
  34.  
  35. PARSE ARG line
  36. PARSE VAR line files ',' pubscr
  37.  
  38. files = STRIP(files, 'B')
  39. pubscr = STRIP(pubscr, 'B')
  40.  
  41. /* Start TTM if it isn't already running. */
  42. IF ~SHOW('P', 'TTMANAGER') THEN DO
  43.   ADDRESS COMMAND 'Run >NIL:' ttm
  44.   ADDRESS COMMAND 'SYS:RexxC/WaitForPort TTMANAGER'
  45.   IF rc ~= 0 THEN DO
  46.     MSG 'Unable to find TTManager''s port.'
  47.     EXIT 10
  48.   END
  49. END
  50.  
  51. ADDRESS 'TTMANAGER'
  52.  
  53. IF pubscr ~= '' THEN DO
  54.   'GetScreen'
  55.   oldscr = result
  56.   'SetScreen' pubscr
  57.   END
  58. ELSE oldscr = ''
  59.  
  60. 'NewWindow' files
  61.  
  62. IF oldscr ~= '' THEN 'SetScreen' oldscr
  63.  
  64.